home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / edb (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  283b  |  8 lines
  1. 1 REM EDB  (ED/RST BOOT) 10/10/86
  2. 2 SYS58692:POKE53280,0:POKE53281,0:POKE646,0:IFA<>0THEN6
  3. 3 CLOSE15:OPEN15,8,15:OPEN6,8,6,"0:SORT ML,P,R"
  4. 4 INPUT#15,E,E$,J,J:CLOSE6:PRINT#15,"I0":CLOSE15:IFE>1THEN6
  5. 5 A=1:LOAD"SORT ML",8,1
  6. 6 PRINT"LOAD"CHR$(34)"ED/RST C*"CHR$(34)",8[145][145][145]"
  7. 7 POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:POKE198,5:END
  8.